function K = CalculateK (Arr)
  [m,n] = size(Arr);
  K=[];
  index = 1;
  for i = 1:1:m
    for j = 3:1:n
      if Arr(i,j) ~= 0
        index =index + 1;
        K(index,1) = Arr(i,1);
        K(index,2) = Arr(i,2);
        rxPowerDbm =CalcRxPower(CalcDistance(Arr(i,1), Arr(i,2)), 2.6); 
        rxPowerW = realpow(10, rxPowerDbm/10)/1000;
        K(index,3) = rxPowerW/Arr(i,j);
      end
    end
  end
end
